home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
pcboard
/
csver04.zip
/
VERIFY.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1996-03-20
|
13KB
|
1,105 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
;------------------------------------------------------------------------------
Cls
INTEGER002 = "314"
STRING001 = PPEPath() + "VERIFY.CFG"
STRING006 = ReadLine(STRING001, 6)
STRING007 = ReadLine(STRING001, 7)
STRING005 = ReadLine(STRING001, 1)
INTEGER004 = ReadLine(STRING001, 2)
INTEGER003 = ReadLine(STRING001, 3)
STRING015 = INTEGER004 * INTEGER002
STRING016 = (INTEGER004 * INTEGER002) / 2
STRING008 = (INTEGER004 * INTEGER002) / 2 + "10" + "2000" - "1500" + STRING015 - STRING016
STRING003 = ReadLine(STRING001, 4)
STRING002 = ReadLine(STRING001, 5)
GetUser
Select Case (STRING002)
Case "Y"
Gosub LABEL001
Case "y"
Gosub LABEL001
Case "Yes"
Gosub LABEL001
Case "yes"
Gosub LABEL001
Case "YES"
Gosub LABEL001
Case Else
Gosub LABEL002
End Select
:LABEL001
STRING017 = CallId()
Gosub LABEL002
:LABEL002
STRING010 = U_Name()
STRING012 = U_Pwd
STRING013 = U_Ver
INTEGER006 = U_HVPhone
STRING014 = U_BDPhone
PutUser
Cls
Newlines 3
PrintLn " @X0ACSVerify v0.4@X07"
PrintLn " @X09Created By: CompuSoft Technologies@X07"
STRING018 = "N"
If (INTEGER003 == STRING008) Then
STRING018 = "Y"
Gosub LABEL003
Else
STRING018 = "N"
Gosub LABEL003
Endif
:LABEL003
If (STRING018 == "Y") Then
PrintLn "@X0E Registered To: @X0F", STRING005, "@X07"
Delay 30
Gosub LABEL004
Else
PrintLn "@X0C CSVerify is UNRegistered! Please Encourage Your SysOp to Register...@X07"
Delay 50
Gosub LABEL004
Endif
:LABEL004
Cls
Select Case (STRING002)
Case "Y"
Gosub LABEL005
Case "y"
Gosub LABEL005
Case "Yes"
Gosub LABEL005
Case "yes"
Gosub LABEL005
Case "YES"
Gosub LABEL005
Case Else
Gosub LABEL010
End Select
:LABEL005
Cls
Newlines 10
PrintLn "@X0E Caller I.D. Mode Enabled....@X07"
Delay 25
Cls
Newlines 5
PrintLn " @X0AGetting Caller I.D. Information@X07"
PrintLn " @X0F╒══════════════════════════════════════════════════════════════════════╕@X07"
PrintLn " @X0F│ @X0F│@X07"
PrintLn " @X0F╞══════════════════════════════════════════════════════════════════════╡@X07"
PrintLn " @X0F│ @X09[ ] @X0E Getting Name from Caller I.D. @X0F│@X07"
PrintLn " @X0F│ @X09[ ] @X0EGetting Phone Number from Caller I.D. @X0F│@X07"
PrintLn " @X0F│ @X0F│@X07"
PrintLn " @X0F╘══════════════════════════════════════════════════════════════════════╛@X07"
Gosub LABEL007
Gosub LABEL008
Gosub LABEL006
:LABEL006
Gosub LABEL007
Gosub LABEL009
AnsiPos 7, 8
Print " "
AnsiPos 40, 8
Print "@X0CDONE!@X07"
Delay 30
Gosub LABEL019
:LABEL007
AnsiPos 7, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 7, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Return
:LABEL008
AnsiPos 25, 10
Print "@X0A√@X07"
Return
:LABEL009
AnsiPos 25, 11
Print "@X0A√@X07"
Return
:LABEL010
Gosub LABEL011
:LABEL011
Cls
DispFile PPEPath() + "VERIFY.NFO", 0
:LABEL012
Newline
InputText "@X0E(@X0C@TIMELEFT@ @X0Emin left), (C)ontinue CSVerify or (A)bort and return to the BBS?@X07", STRING019, 14, 1
Print "@X07"
Select Case (STRING019)
Case "C"
Gosub LABEL013
Case "c"
Gosub LABEL013
Case "A"
Gosub LABEL025
Case "a"
Gosub LABEL025
Case Else
Gosub LABEL012
End Select
:LABEL013
Cls
PrintLn " @X09Verifying @X0A@USER@ @X09on @X0A", STRING005, "@X09 on @X0A", Date(), "@X07"
Newlines 2
GetUser
Input "@X0EEnter your User I.D. (Name)@X07", STRING009
STRING009 = Upper(STRING009)
GetUser
Newline
Print "@X0EEnter Your ", STRING006, " Phone Number@X07"
Input "", INTEGER005
Newline
Print "@X0EEnter Your ", STRING007, " Phone@X07"
Input "", INTEGER007
Newline
Print "@X0EEnter Your Password For ", STRING005, "@X07"
Input "", STRING011
STRING011 = Upper(STRING011)
PutUser
Cls
Newlines 5
PrintLn " @X0EVerifying Information....@X07"
PrintLn "@X0F╒═════════════════════════════════════════════════════════════════════════╕@X07"
PrintLn "@X0F│ @X0F│@X07"
PrintLn "@X0F╞═════════════════════════════════════════════════════════════════════════╡@X07"
PrintLn "@X0F│ @X09[ ] @X0ACHECKING USER NAME @X09[ ] @X0ACHECKING ", STRING006, " PHONE NUMBER@X0F@POS:75@│@X07"
PrintLn "@X0F│ @X0F│@X07"
PrintLn "@X0F│ @X09[ ] @X0ACHECKING ", STRING007, " PHONE@POS:38@@X09[ ] @X0ACHECKING PASSWORD @X0F │@X07"
PrintLn "@X0F│ @X07X @X07= FAILED CHECK √ = PASSED CHECK @X0F│@X07"
PrintLn "@X0F╘═════════════════════════════════════════════════════════════════════════╛@X07"
STRING004 = "Y"
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (STRING009 == STRING010) Then
AnsiPos 9, 10
Print "@X0C√@X07"
PutUser
Gosub LABEL014
Else
AnsiPos 9, 10
Print "@X0CX@X07"
STRING004 = "N"
PutUser
Gosub LABEL014
Endif
:LABEL014
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (INTEGER005 == INTEGER006) Then
AnsiPos 39, 10
Print "@X0C√@X07"
PutUser
Gosub LABEL015
Else
AnsiPos 39, 10
Print "@X0CX@X07"
STRING004 = "N"
PutUser
Gosub LABEL015
Endif
:LABEL015
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (INTEGER007 == STRING014) Then
AnsiPos 9, 12
Print "@X0C√@X07"
PutUser
Gosub LABEL016
Else
AnsiPos 9, 12
Print "@X0CX@X07"
STRING004 = "N"
PutUser
Gosub LABEL016
Endif
:LABEL016
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (STRING011 == STRING012) Then
AnsiPos 39, 12
Print "@X0C√@X07"
PutUser
Gosub LABEL017
Else
AnsiPos 39, 12
Print "@X0CX@X07"
STRING004 = "N"
PutUser
Gosub LABEL017
Endif
:LABEL017
Select Case (STRING004)
Case "Y"
AnsiPos 1, 15
PrintLn " @X0AYou Passed The Verification...@X07"
Delay 25
DispFile PPEPath() + "PASS.NFO", 0
Gosub LABEL018
Case "N"
AnsiPos 1, 15
PrintLn "@X0C Sorry, You did not enter all the correct information!@X07"
Delay 25
DispFile PPEPath() + "FAIL.NFO", 0
Gosub LABEL025
Case Else
AnsiPos 1, 15
PrintLn "@X8C ERROR! ERROR! An Error has accured in the program. Notify SysOp!!@X07"
Delay 75
Gosub LABEL025
End Select
:LABEL018
GetUser
U_Sec = STRING003
PutUser
Gosub LABEL025
:LABEL019
Cls
DispFile PPEPath() + "CIDVERIF.NFO", 0
:LABEL020
InputText "@X0E(@X0C@TIMELEFT@ @X0Emin left), (C)ontinue CSVerify or (A)bort and return to the BBS?@X07", STRING020, 14, 1
Print "@X07"
Select Case (STRING020)
Case "C"
Gosub LABEL021
Case "c"
Gosub LABEL021
Case "A"
Gosub LABEL025
Case "a"
Gosub LABEL025
Case Else
Gosub LABEL020
End Select
:LABEL021
Cls
PrintLn " @X09Verifying @X0A@USER@ @X09on @X0A", STRING005, "@X09 on @X0A", Date(), "@X07"
Newlines 2
GetUser
STRING009 = U_Name()
Print "@X0EEnter Your Password For ", STRING005, "@X07"
Input "", STRING011
STRING011 = Upper(STRING011)
PutUser
Cls
Newlines 5
PrintLn " @X0EVerifying Information....@X07"
PrintLn "@X0F╒═════════════════════════════════════════════════════════════════════════╕@X07"
PrintLn "@X0F│ @X0F│@X07"
PrintLn "@X0F╞═════════════════════════════════════════════════════════════════════════╡@X07"
PrintLn "@X0F│ @X09[ ] @X0ACHECKING USER NAME @X09[ ] @X0ACHECKING CALLER I.D. PHONE @X0F│@X07"
PrintLn "@X0F│ @X0F│@X07"
PrintLn "@X0F│ @X09[ ] @X0ACHECKING PASSWORD @X0F │@X07"
PrintLn "@X0F│ @X07X @X07= FAILED CHECK √ = PASSED CHECK @X0F│@X07"
PrintLn "@X0F╘═════════════════════════════════════════════════════════════════════════╛@X07"
STRING004 = "Y"
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (STRING009 == STRING010) Then
AnsiPos 9, 10
Print "@X0C√@X07"
PutUser
Gosub LABEL022
Else
AnsiPos 9, 10
Print "@X0CX@X07"
STRING004 = "N"
PutUser
Gosub LABEL022
Endif
:LABEL022
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
Select Case (STRING017)
Case U_HVPhone
AnsiPos 39, 10
Print "@X0C√@X07"
PutUser
Gosub LABEL023
Case U_BDPhone
AnsiPos 39, 10
Print "@X0C√@X07"
PutUser
Gosub LABEL023
Case Else
AnsiPos 39, 10
Print "@X0CX@X07"
STRING004 = "N"
PutUser
Gosub LABEL023
End Select
:LABEL023
AnsiPos 2, 8
Print "@X08░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X07"
Delay 5
AnsiPos 2, 8
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
Delay 2
Print "@X0C▒▒@X07"
GetUser
If (STRING011 == STRING012) Then
AnsiPos 26, 12
Print "@X0C√@X07"
PutUser
Gosub LABEL024
Else
AnsiPos 26, 12
Print "@X0CX@X07"
STRING004 = "N"
PutUser
Gosub LABEL024
Endif
:LABEL024
Select Case (STRING004)
Case "Y"
AnsiPos 1, 15
PrintLn " @X0AYou Passed The Verification...@X07"
Delay 25
DispFile PPEPath() + "PASS.NFO", 0
Gosub LABEL018
Case "N"
AnsiPos 1, 15
PrintLn "@X0C Sorry, You did not enter all the correct information!@X07"
Delay 25
DispFile PPEPath() + "FAIL.NFO", 0
Gosub LABEL025
Case Else
AnsiPos 1, 15
PrintLn "@X8C ERROR! ERROR! An Error has accured in the program. Notify SysOp!!@X07"
Delay 75
Gosub LABEL025
End Select
:LABEL025
Cls
Newlines 2
PrintLn " @X0ACSVerify v0.4@X07"
PrintLn " @X09Created By: CompuSoft Technologies@X07"
If (STRING018 == "Y") Then
PrintLn "@X0E Registered To: @X0F", STRING005, "@X07"
Delay 25
Gosub LABEL026
Else
PrintLn "@X0C CSVerify is UNRegistered! Please Encourage Your SysOp to Register...@X07"
Delay 200
Gosub LABEL026
Endif
:LABEL026
Newlines 1
PrintLn " @X09T@X0Ah@X0Ba@X0Cn@X0Dk @X0EY@X0Fo@X07u @X09F@X0Ao@X0Br @X0CU@X0Ds@X0Ei@X0Fn@X07g @X09CS@X0CV@X0Ee@X0Fr@X0Ai@X0Cf@X0By@X0F@X01!@X07"
Newlines 3
PrintLn "@X0E Returning to @X4A", STRING005, "@X0E, Please Wait...@X07"
Delay 50
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 12 Cls
; 66 Goto
; 35 Let
; 329 Print
; 45 PrintLn
; 33 If
; 6 DispFile
; 5 Input
; 12 GetUser
; 19 PutUser
; 58 Gosub
; 3 Return
; 309 Delay
; 4 Newline
; 10 Newlines
; 2 InputText
; 41 AnsiPos
;
;
; ■ Functions used :
;
; 3 *
; 2 /
; 10 +
; 2 -
; 33 ==
; 33 !
; 3 Upper()
; 2 Date()
; 2 U_Name()
; 7 PPEPath()
; 7 ReadLine()
; 1 CallId()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WH
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; H - Read Password or Password History ■ 5
; Program is reading the user's password or last password history
; This may be ok for a password manager, but it is very suspect. Check!
; ■ Search for : U_PWDHIST, U_PWD
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 9 If/Then or If/Then/Else
; 7 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------
(.txt)
(.txt)